Developer CD Series 1999 May: Tool Chest

home *** CD-ROM | disk | FTP | other *** search

/ Developer CD Series 1999 May: Tool Chest / Developer CD Series Tool Chest (Apple Computer)(May 1999).iso / Tool Chest / Hardware / AV Tools / VUMeters / Testing / VU Mathematica < prev

Wrap

Text File | 1993-10-27 | 12.2 KB | 575 lines | [TEXT/OMEG]

(*^ ::[paletteColors = 128; automaticGrouping; currentKernel; fontset = title, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e8, 24, "Times"; ; fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e6, 18, "Times"; ; fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, L1, e6, 14, "Times"; ; fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, L1, a20, 18, "Times"; ; fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, L1, a15, 14, "Times"; ; fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, L1, a12, 12, "Times"; ; fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Times"; ; fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 10, "Times"; ; fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L-5, 12, "Courier"; ; fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier"; ; fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, L-5, 12, "Courier"; ; fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier"; ; fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, B65535, L-5, 12, "Courier"; ; fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, L1, 12, "Courier"; ; fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, L1, 10, "Geneva"; ; fontset = header, inactive, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Times"; ; fontset = Left Header, inactive, 12, "Times"; ; fontset = footer, inactive, noKeepOnOnePage, preserveAspect, center, M7, L1, 12, "Times"; ; fontset = Left Footer, inactive, 12, "Times"; ; fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 10, "Times"; ; fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Times"; ; fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Times"; ; fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Times"; ; fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Times"; ; fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Times"; ; fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Times"; ; fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Times"; ;] :[font = input; preserveAspect; startGroup; ] 3 :[font = output; output; inactive; preserveAspect; endGroup; ] 3 ;[o] 3 :[font = input; preserveAspect; startGroup; ] Solve[{a x1 + b == d/2, a x2 + b == -d/2},{a, b}] :[font = output; output; inactive; preserveAspect; endGroup; ] {{a -> d/(x1 - x2), b -> -(d*x1)/(2*(x1 - x2)) - (d*x2)/(2*(x1 - x2))}} ;[o] d -(d x1) d x2 {{a -> -------, b -> ----------- - -----------}} x1 - x2 2 (x1 - x2) 2 (x1 - x2) :[font = input; preserveAspect; startGroup; ] x1=Log[10-5];x2=Log[10- -60];d=180;a=d/(x1-x2);b=-d/2(x1+x2)/(x1-x2) :[font = output; output; inactive; preserveAspect; endGroup; ] (-90*(Log[5] + Log[70]))/(Log[5] - Log[70]) ;[o] -90 (Log[5] + Log[70]) ---------------------- Log[5] - Log[70] :[font = input; preserveAspect; ] f[dB_] := a Log[10-dB] + b; :[font = input; preserveAspect; startGroup; ] Plot[f[x],{x,-60,5}] :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 282; pictureHeight = 174; ] %! %%Creator: Mathematica %%AspectRatio: 0.61803 MathPictureStart /Courier findfont 10 scalefont setfont % Scaling calculations 0.90293 0.014652 0.309017 0.00327002 [ [(-60)] 0.02381 0.30902 0 2 Msboxa [(-50)] 0.17033 0.30902 0 2 Msboxa [(-40)] 0.31685 0.30902 0 2 Msboxa [(-30)] 0.46337 0.30902 0 2 Msboxa [(-20)] 0.60989 0.30902 0 2 Msboxa [(-10)] 0.75641 0.30902 0 2 Msboxa [(-75)] 0.89043 0.06377 1 0 Msboxa [(-50)] 0.89043 0.14552 1 0 Msboxa [(-25)] 0.89043 0.22727 1 0 Msboxa [(25)] 0.89043 0.39077 1 0 Msboxa [(50)] 0.89043 0.47252 1 0 Msboxa [(75)] 0.89043 0.55427 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 0.61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath %%Object: Graphics [ ] 0 setdash 0 setgray gsave gsave 0.002 setlinewidth 0.02381 0.30902 moveto 0.02381 0.31527 lineto stroke grestore [(-60)] 0.02381 0.30902 0 2 Mshowa gsave 0.002 setlinewidth 0.17033 0.30902 moveto 0.17033 0.31527 lineto stroke grestore [(-50)] 0.17033 0.30902 0 2 Mshowa gsave 0.002 setlinewidth 0.31685 0.30902 moveto 0.31685 0.31527 lineto stroke grestore [(-40)] 0.31685 0.30902 0 2 Mshowa gsave 0.002 setlinewidth 0.46337 0.30902 moveto 0.46337 0.31527 lineto stroke grestore [(-30)] 0.46337 0.30902 0 2 Mshowa gsave 0.002 setlinewidth 0.60989 0.30902 moveto 0.60989 0.31527 lineto stroke grestore [(-20)] 0.60989 0.30902 0 2 Mshowa gsave 0.002 setlinewidth 0.75641 0.30902 moveto 0.75641 0.31527 lineto stroke grestore [(-10)] 0.75641 0.30902 0 2 Mshowa gsave 0.001 setlinewidth 0.05311 0.30902 moveto 0.05311 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.08242 0.30902 moveto 0.08242 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.11172 0.30902 moveto 0.11172 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.14103 0.30902 moveto 0.14103 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.19963 0.30902 moveto 0.19963 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.22894 0.30902 moveto 0.22894 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.25824 0.30902 moveto 0.25824 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.28755 0.30902 moveto 0.28755 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.34615 0.30902 moveto 0.34615 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.37546 0.30902 moveto 0.37546 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.40476 0.30902 moveto 0.40476 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.43407 0.30902 moveto 0.43407 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.49267 0.30902 moveto 0.49267 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.52198 0.30902 moveto 0.52198 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.55128 0.30902 moveto 0.55128 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.58059 0.30902 moveto 0.58059 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.63919 0.30902 moveto 0.63919 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.6685 0.30902 moveto 0.6685 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.6978 0.30902 moveto 0.6978 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.72711 0.30902 moveto 0.72711 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.78571 0.30902 moveto 0.78571 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.81502 0.30902 moveto 0.81502 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.84432 0.30902 moveto 0.84432 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.87363 0.30902 moveto 0.87363 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.93223 0.30902 moveto 0.93223 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.96154 0.30902 moveto 0.96154 0.31277 lineto stroke grestore gsave 0.001 setlinewidth 0.99084 0.30902 moveto 0.99084 0.31277 lineto stroke grestore gsave 0.002 setlinewidth 0 0.30902 moveto 1 0.30902 lineto stroke grestore gsave 0.002 setlinewidth 0.90293 0.06377 moveto 0.90918 0.06377 lineto stroke grestore [(-75)] 0.89043 0.06377 1 0 Mshowa gsave 0.002 setlinewidth 0.90293 0.14552 moveto 0.90918 0.14552 lineto stroke grestore [(-50)] 0.89043 0.14552 1 0 Mshowa gsave 0.002 setlinewidth 0.90293 0.22727 moveto 0.90918 0.22727 lineto stroke grestore [(-25)] 0.89043 0.22727 1 0 Mshowa gsave 0.002 setlinewidth 0.90293 0.39077 moveto 0.90918 0.39077 lineto stroke grestore [(25)] 0.89043 0.39077 1 0 Mshowa gsave 0.002 setlinewidth 0.90293 0.47252 moveto 0.90918 0.47252 lineto stroke grestore [(50)] 0.89043 0.47252 1 0 Mshowa gsave 0.002 setlinewidth 0.90293 0.55427 moveto 0.90918 0.55427 lineto stroke grestore [(75)] 0.89043 0.55427 1 0 Mshowa gsave 0.001 setlinewidth 0.90293 0.08012 moveto 0.90668 0.08012 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.09647 moveto 0.90668 0.09647 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.11282 moveto 0.90668 0.11282 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.12917 moveto 0.90668 0.12917 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.16187 moveto 0.90668 0.16187 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.17822 moveto 0.90668 0.17822 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.19457 moveto 0.90668 0.19457 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.21092 moveto 0.90668 0.21092 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.24362 moveto 0.90668 0.24362 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.25997 moveto 0.90668 0.25997 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.27632 moveto 0.90668 0.27632 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.29267 moveto 0.90668 0.29267 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.32537 moveto 0.90668 0.32537 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.34172 moveto 0.90668 0.34172 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.35807 moveto 0.90668 0.35807 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.37442 moveto 0.90668 0.37442 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.40712 moveto 0.90668 0.40712 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.42347 moveto 0.90668 0.42347 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.43982 moveto 0.90668 0.43982 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.45617 moveto 0.90668 0.45617 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.48887 moveto 0.90668 0.48887 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.50522 moveto 0.90668 0.50522 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.52157 moveto 0.90668 0.52157 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.53792 moveto 0.90668 0.53792 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.04742 moveto 0.90668 0.04742 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.03107 moveto 0.90668 0.03107 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.01472 moveto 0.90668 0.01472 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.57062 moveto 0.90668 0.57062 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.58697 moveto 0.90668 0.58697 lineto stroke grestore gsave 0.001 setlinewidth 0.90293 0.60332 moveto 0.90668 0.60332 lineto stroke grestore gsave 0.002 setlinewidth 0.90293 0 moveto 0.90293 0.61803 lineto stroke grestore grestore 0 0 moveto 1 0 lineto 1 0.61803 lineto 0 0.61803 lineto closepath clip newpath gsave gsave 0.004 setlinewidth 0.02381 0.01472 moveto 0.06349 0.02352 lineto 0.10317 0.03268 lineto 0.14286 0.04223 lineto 0.18254 0.05222 lineto 0.22222 0.06267 lineto 0.2619 0.07363 lineto 0.30159 0.08516 lineto 0.34127 0.09732 lineto 0.38095 0.11018 lineto 0.42063 0.12383 lineto 0.46032 0.13837 lineto 0.5 0.15392 lineto 0.53968 0.17064 lineto 0.57937 0.18872 lineto 0.61905 0.20839 lineto 0.65873 0.22996 lineto 0.69841 0.25385 lineto 0.7381 0.2806 lineto 0.77778 0.31101 lineto 0.81746 0.34623 lineto 0.85714 0.38807 lineto 0.89683 0.43962 lineto 0.93651 0.50677 lineto 0.95635 0.54986 lineto 0.97619 0.60332 lineto stroke grestore grestore % End of Graphics MathPictureEnd :[font = output; output; inactive; preserveAspect; endGroup; ] The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated. ;[o] -Graphics- ^*)